home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2004 March / PCWMAR04.iso / Software / Resources / JawsPDF Creator / JawsPdfCreatorEn.exe / Disk1 / data1.cab / InstDirResource / procset / pdfspots.ps < prev    next >
Encoding:
Text File  |  2003-08-08  |  2.1 KB  |  83 lines
  1. %!
  2. %%VMusage: 0 0
  3. %%VMlocation: global
  4. %%
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6. %%                                    %%
  7. %% PDFSpotFunctions: the predefined spot functions for PDF 1.2        %%
  8. %%                                    %%
  9. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  10.  
  11. /PDFSpotFunctions <<
  12.  
  13. /Round {
  14.   abs exch abs 2 copy add 1 le {
  15.     dup mul exch dup mul add 1 exch sub
  16.   } {
  17.     1 sub dup mul exch 1 sub dup mul add 1 sub
  18.   } ifelse
  19. } bind
  20.  
  21. /Diamond {
  22.   abs exch abs 2 copy add .75 le {
  23.     dup mul exch dup mul add 1 exch sub
  24.   } {
  25.     2 copy add 1.23 le {
  26.       .85 mul add 1 exch sub
  27.     } {
  28.       1 sub dup mul exch 1 sub dup mul add 1 sub
  29.     } ifelse
  30.   } ifelse
  31. } bind
  32.  
  33. /Ellipse {
  34.   abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  35.     pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  36.   } {
  37.     dup 1 gt {
  38.       pop 1 exch sub dup mul exch 1 exch sub .75 div dup mul add 4 div 1 sub
  39.     } {
  40.       .5 exch sub exch pop exch pop
  41.     } ifelse
  42.   } ifelse
  43. } bind
  44.  
  45. /EllipseA {dup mul .9 mul exch dup mul add 1 exch sub} bind
  46.  
  47. /InvertedEllipseA {dup mul .9 mul exch dup mul add 1 sub} bind
  48.  
  49. /EllipseB {dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub} bind
  50.  
  51. /EllipseC {dup mul .9 mul exch dup mul add 1 exch sub} bind
  52.  
  53. /InvertedEllipseC {dup mul .9 mul exch dup mul add 1 sub} bind
  54.  
  55. /Line {exch pop abs neg} bind
  56.  
  57. /LineX {pop} bind
  58.  
  59. /LineY {exch pop} bind
  60.  
  61. /Square {abs exch abs 2 copy lt {exch} if pop neg} bind
  62.  
  63. /Cross {abs exch abs 2 copy gt {exch} if pop neg} bind
  64.  
  65. /Rhomboid {abs exch abs 0.9 mul add 2 div} bind
  66.  
  67. /DoubleDot {2 {360 mul sin 2 div exch} repeat add} bind
  68.  
  69. /InvertedDoubleDot {2 {360 mul sin 2 div exch} repeat add neg} bind
  70.  
  71. /SimpleDot {dup mul exch dup mul add 1 exch sub}
  72.  
  73. /InvertedSimpleDot { dup mul exch dup mul add 1 sub} bind
  74.  
  75. /CosineDot {180 mul cos exch 180 mul cos add 2 div} bind
  76.  
  77. /Double {exch 2 div exch 2 {360 mul sin 2 div exch} repeat add} bind
  78.  
  79. /InvertedDouble {exch 2 div exch 2 {360 mul sin 2 div exch} repeat add neg} bind
  80.  
  81. >> /ProcSet defineresource
  82.  
  83.